

/**************************************************************
REPLICATION CODE & DATA (1 April 2020)

Asli Cansunar. "Who is High-Income, Anyway? Social Comparison, Subjective Group Identification, and Preferences over Progressive Taxation" Journal of Politics. Forthcoming.
For questions, contact: asli.cansunar@politics.ox.ac.uk.

**************************************************************/

clear all
cd "/Users/aslicansunar/Dropbox/_Papers for publication/Who is High Income, Anyway?/_JOP/Final version/Replication materials"

set scheme s2mono
use issp2009.dta

*Appendix Table 5&6

*Table Appendix 5
reg self_placement c.income i.ccode , robust cluster(iso3c)
estimates store m11, title(Model 1)
reg self_placement c.income c.ln_dist_ceo c.ln_dist_worker i.ccode , robust cluster(iso3c)
estimates store m22, title(Model 2)
reg self_placement c.income c.ln_dist_ceo c.ln_dist_worker female church college age tunion unempl empl_part retired married S1r right i.ccode , robust cluster(iso3c)
estimates store m33, title(Model 3)
esttab m11 m22 m33 using tableA5.tex,replace star(* 0.1 ** .05 *** .01) cells(b(star fmt(2)) se(par fmt(2))) coeflabels(income "Income" self_placement "Self-placement" ln_dist_ceo "Perceived CEO distance" female "Female" church "Church attendance" college "College" age "Age" tunion "Union member" unempl "Unemployed" empl_part "Part-time employed" retired "Retired" married "Married" S1r "Skill specifity" i.right "Conservative") indicate("Country FE = *.ccode")


*Table Appendix 6
logit prog_2 income i.ccode , robust cluster(iso3c)
estimates store m1, title(Model 1)
logit prog_2 c.income c.self_placement i.ccode , robust cluster(iso3c)
estimates store m2, title(Model 2)
logit prog_2 c.income c.self_placement c.ln_dist_ceo i.ccode , robust cluster(iso3c)
estimates store m3, title(Model 3)
logit prog_2 c.income c.self_placement c.ln_dist_ceo female church college age tunion unempl empl_part retired married S1r right i.ccode , robust cluster(iso3c)
estimates store m4, title(Model 4)


logit poverty_relief income i.ccode , robust cluster(iso3c)
estimates store m5, title(Model 5)
logit poverty_relief c.income c.self_placement i.ccode , robust cluster(iso3c)
estimates store m6, title(Model 6)
logit poverty_relief c.income c.self_placement c.ln_dist_ceo i.ccode , robust cluster(iso3c)
estimates store m7, title(Model 7)
logit poverty_relief c.income c.self_placement c.ln_dist_ceo female church college age tunion unempl empl_part retired married S1r right i.ccode , robust cluster(iso3c)
estimates store m8, title(Model 8)

	
logit government_res income i.ccode , robust cluster(iso3c)
estimates store m9, title(Model 9)
logit government_res c.income c.self_placement i.ccode , robust cluster(iso3c)
estimates store m10, title(Model 10)
logit government_res c.income c.self_placement c.ln_dist_ceo i.ccode , robust cluster(iso3c)
estimates store m11, title(Model 11)
logit government_res c.income c.self_placement c.ln_dist_ceo female church college age tunion unempl empl_part retired married S1r right i.ccode , robust cluster(iso3c)
estimates store m12, title(Model 12)
esttab m1 m2 m3 m4 m5 m6 m7 m8 m9 m10 m11 m12 using tableA6.tex,replace star(* 0.1 ** .05 *** .01) cells(b(star fmt(2)) se(par fmt(2))) coeflabels(income "Income" self_placement "Self-placement" ln_dist_ceo "Perceived CEO distance" female "Female" church "Church attendance" college "College" age "Age" tunion "Union member" unempl "Unemployed" empl_part "Part-time employed" retired "Retired" married "Married" S1r "Skill specifity" i.right "Conservative") indicate("Country FE = *.ccode")




